home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_13605.txt < prev    next >
Encoding:
Text File  |  1990-08-14  |  7.4 KB  |  280 lines
  1. -- background: 13605 from stack: in
  2. -- bmap block id: 15002
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Course Details tabs
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global checkLoc1,checkLoc2,checkLoc3
  9.   put 1 into checkLoc1
  10.   put 1 into checkLoc2
  11.   put 1 into checkLoc3
  12. end openBackground
  13.  
  14. on doMenu menuItem
  15.   lock screen
  16.   if menuItem contains "About" then
  17.     resetFields
  18.     restoreMenuBar
  19.     go to card "Course Details" of background "About"
  20.     unlock screen with zoom close
  21.   else if menuItem is "Home" then
  22.     resetFields
  23.     restoreMenuBar
  24.     go home
  25.     unlock screen
  26.   else if menuItem contains "Quit" then
  27.     resetFields
  28.     restoreMenuBar false
  29.     go to card "Mac School¬Æ Shell"
  30.     unlock screen with zoom close
  31.   end if
  32. end doMenu
  33.  
  34. on resetFields
  35.   lock screen
  36.   set cursor to watch
  37.   push card
  38.   go to first card of this background -- General tab
  39.   repeat with fieldNum = 1 to 3
  40.     put empty into card field fieldNum
  41.   end repeat
  42.   repeat with buttonNum = 1 to the number of buttons
  43.     set hilite of button buttonNum to false
  44.   end repeat
  45.   put "NA" into card field "Department"
  46.   put "0" into card field "Sequence #"
  47.   put "0" into card field "EFT"
  48.   put "0.000" into card field "Warp Factor 1"
  49.   put "0.000" into card field "Warp Factor 2"
  50.   put "Table 1" into card field "Points & Credits"
  51.   put "NA" into card field "Grade"
  52.   put "0.000" into card field "Credits"
  53.   go to next card -- Scheduler tab
  54.   repeat with fieldNum = 1 to the number of card fields
  55.     put empty into card field fieldNum
  56.   end repeat
  57.   repeat with buttonNum = 1 to the number of buttons
  58.     set hilite of button buttonNum to false
  59.   end repeat
  60.   set hilite of button "Co-ed" to true
  61.   go to next card -- Periods tab
  62.   set icon of button "Extra Monday" to "Md Unchecked Box"
  63.   set icon of button "Extra Tuesday" to "Md Unchecked Box"
  64.   set icon of button "Extra Wednesday" to "Md Unchecked Box"
  65.   set icon of button "Extra Thursday" to "Md Unchecked Box"
  66.   set icon of button "Extra Friday" to "Md Unchecked Box"
  67.   repeat with buttonNum = 1 to 50
  68.     if "id" is in name of button id buttonNum then
  69.       set hilite of button id buttonNum to false
  70.     else
  71.       set hilite of button id buttonNum to true
  72.     end if
  73.   end repeat
  74.   repeat with buttonNum = 58 to 60
  75.     set hilite of button id buttonNum to false
  76.   end repeat
  77.   repeat with fieldNum = 1 to 3
  78.     put empty into card field fieldNum
  79.   end repeat
  80.   go to next card -- Lists prerequisites tab
  81.   put "None" into card field "Prerequisites"
  82.   go to next card -- Lists co-requisites tab
  83.   put "None" into card field "Co-requisites"
  84.   go to next card -- Lists rooms tab
  85.   put "Any room" into card field "Rooms"
  86.   go to next card -- Lists programs tab
  87.   repeat with buttonNum = 4 to the number of buttons
  88.     set icon of button buttonNum to "Md Unchecked Box"
  89.   end repeat
  90.   go to next card -- Comments tab
  91.   put empty into card field 1
  92.   pop card
  93.   unlock screen
  94. end resetFields
  95.  
  96.  
  97.  
  98. -- part 1 (button)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=32 top=30 right=51 bottom=117
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: CD General
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   if short name of this card is not short name of me then
  113.     go to card short name of me
  114.   end if
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 2 (button)
  120. -- low flags: 00
  121. -- high flags: 0000
  122. -- rect: left=121 top=30 right=51 bottom=204
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: CD Scheduler
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   if short name of this card is not short name of me then
  134.     lock screen
  135.     go to card short name of me
  136.     if card field "Course Name" of first card of this background is not empty then
  137.       put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
  138.     else put "(not set)" into field "Working On"
  139.     unlock screen
  140.     tabKey
  141.   end if
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 3 (button)
  147. -- low flags: 00
  148. -- high flags: 0000
  149. -- rect: left=208 top=30 right=51 bottom=293
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: CD Periods
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   if short name of this card is not short name of me then
  161.     lock screen
  162.     go to card short name of me
  163.     if card field "Course Name" of first card of this background is not empty then
  164.       put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
  165.     else put "(not set)" into field "Working On"
  166.     unlock screen
  167.     tabKey
  168.   end if
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 4 (button)
  174. -- low flags: 00
  175. -- high flags: 0000
  176. -- rect: left=296 top=30 right=51 bottom=381
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: CD Lists
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   if short name of this card is not short name of me then
  188.     lock screen
  189.     go to card short name of me
  190.     set the scroll of card field "Course Pool" to 0
  191.     if card field "Course Name" of first card of this background is not empty then
  192.       put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
  193.     else put "(not set)" into field "Working On"
  194.     unlock screen
  195.   end if
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 5 (button)
  201. -- low flags: 00
  202. -- high flags: 0000
  203. -- rect: left=384 top=30 right=51 bottom=469
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: CD Comments
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   if short name of this card is not short name of me then
  215.     lock screen
  216.     go to card short name of me
  217.     if card field "Course Name" of first card of this background is not empty then
  218.       put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
  219.     else put "(not set)" into field "Working On"
  220.     unlock screen
  221.     tabKey
  222.   end if
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 6 (button)
  228. -- low flags: 00
  229. -- high flags: A003
  230. -- rect: left=143 top=303 right=326 bottom=246
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Cancel
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   pop card
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 7 (button)
  247. -- low flags: 00
  248. -- high flags: A003
  249. -- rect: left=266 top=304 right=325 bottom=369
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Done
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   lock screen
  261.   resetFields
  262.   pop card
  263.   unlock screen
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part 8 (field)
  269. -- low flags: 01
  270. -- high flags: 0000
  271. -- rect: left=113 top=57 right=75 bottom=474
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 0
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: Working On
  280.